home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Texteditors / Origami / bindings / fun / buff-size < prev    next >
Encoding:
Text File  |  1996-09-27  |  988 b   |  38 lines
  1. @if-using not(ocl-file-buff-size)
  2.    @use (ocl-file-buff-size)
  3.    ;OCL{{{}}}
  4.    ;OCL{{{  reference decription
  5.    @if-using ( FUN-REFERENCE ) ; 1 ;
  6.    Defining  a function, which extends the size of the current  buffer  to
  7.    screen size.
  8.    @fi
  9.    ;OCL}}}
  10.    ;OCL{{{  full-size-buffer
  11.    ;OCL{{{  reference
  12.    @if-using ( FUN-REFERENCE ) ; 2 ; full-size-buffer-called
  13.    ;OCL{{{  full-size-buffer
  14.    Extend the current buffer to screen size.
  15.    ;OCL}}}
  16.    @fi
  17.    ;OCL}}}
  18.    ( deffun full-size-buffer
  19.       ( @if-using not( NO-SCR-OFF ) screen-off @fi
  20.         local
  21.          ( ocl-argument )
  22.          ( do
  23.             ( set ocl-argument screen-height
  24.               grow-buffer
  25.             )
  26.            while <>(screen-height ocl-argument)
  27.            do
  28.             ( set ocl-argument screen-width
  29.               widen-buffer
  30.             )
  31.            while <>(screen-width ocl-argument)
  32.          )
  33.         @if-using not( NO-SCR-OFF ) screen-on redraw-display @fi
  34.       )
  35.    )
  36.    ;OCL}}}
  37. @fi
  38.